home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / programs / write / module / standard.module < prev    next >
Text File  |  1996-09-18  |  3KB  |  168 lines
  1. MODULE Standard;
  2.  
  3. VAR
  4.   lastPath : STRING;
  5.  
  6. PROCEDURE LoadFile*(filename : STRING);
  7.  
  8. BEGIN
  9.   _path:=filename;
  10.   IF Exists(filename) THEN
  11.     IF NewEd(GetConfig(filename)) THEN
  12.       IF Window(0,0,0,0){@SCREENREL=TRUE} THEN
  13.         Open(filename);
  14.       END;
  15.     END;
  16.   ELSE
  17.     IF NewEd(GetConfig(filename)) THEN
  18.       IF Window(0,0,0,0){@SCREENREL=TRUE} THEN
  19.         _fileName:=filename
  20.       END;
  21.     END;
  22.   END
  23. END LoadFile;
  24.  
  25. PROCEDURE OpenWindow*;
  26.  
  27. BEGIN
  28.   IF NewEd("") THEN
  29.     Window(0,0,0,0){@SCREENREL=TRUE}
  30.   END;
  31. END OpenWindow;
  32.  
  33. PROCEDURE M_Open*;
  34.  
  35. VAR
  36.   resnum,ok : NUMBER;
  37.  
  38. BEGIN
  39.   IF _changed#0 THEN
  40.     resnum:=Ask(FORMAT($changed1,_fileName),$changed2);
  41.   ELSE
  42.     resnum:=0
  43.   END;
  44.   IF resnum=1 THEN
  45.     ok:=Save(_fileName);
  46.   ELSE
  47.     ok:=TRUE;
  48.   END;
  49.   IF ok AND ((resnum=0) OR (resnum=1)) THEN
  50.     IF FilePart(_fileName)=_unnamed THEN
  51.       IF GetFile(lastPath,"",_fileName) THEN
  52.         Open(_fileName);
  53.         ChangeConfig(GetConfig(_fileName));
  54.       END;
  55.     ELSE
  56.       IF GetFile(_fileName,"",_fileName) THEN
  57.         IF Open(_fileName) THEN
  58.           lastPath:=_fileName
  59.         END;
  60.         ChangeConfig(GetConfig(_fileName));
  61.       END;
  62.     END;
  63.   END;
  64. END M_Open;
  65.  
  66. PROCEDURE Reload*;
  67.  
  68. VAR
  69.   resnum : NUMBER;
  70.  
  71. BEGIN
  72.   IF _changed#0 THEN
  73.     resnum:=Ask(FORMAT($changed1,_fileName),$changed3);
  74.   ELSE
  75.     resnum:=0;
  76.   END;
  77.   IF resnum=0 THEN
  78.     Open(_fileName);
  79.   END;
  80. END Reload;
  81.  
  82. PROCEDURE M_New*;
  83.  
  84. VAR
  85.   resnum,ok : NUMBER;
  86.  
  87. BEGIN
  88.   IF _changed#0 THEN
  89.     resnum:=Ask(FORMAT($changed4,_fileName),$changed5)
  90.   ELSE
  91.     resnum:=0;
  92.   END;
  93.   IF resnum=1 THEN
  94.     ok:=Save(_fileName)
  95.   ELSE
  96.     ok:=TRUE;
  97.   END;
  98.   IF ok AND ((resnum=0) OR (resnum=1)) THEN
  99.     New;
  100.     SetTitle("Text gelöscht.",0);
  101.   END;
  102. END M_New;
  103.  
  104. PROCEDURE Save_Quit*;
  105.  
  106. VAR
  107.   ok : NUMBER;
  108.  
  109. BEGIN
  110.   IF _changed#0 THEN
  111.     ok:=Save(_fileName);
  112.   ELSE
  113.     ok:=TRUE;
  114.   END;
  115.   IF ok THEN
  116.     QuitEd;
  117.   END;
  118. END Save_Quit;
  119.  
  120. PROCEDURE M_Quit*;
  121.  
  122. VAR
  123.   resnum,ok : NUMBER;
  124.  
  125. BEGIN
  126.   IF _changed#0 THEN
  127.     resnum:=Ask(FORMAT($changed6,_fileName),$changed7)
  128.   ELSE
  129.     resnum:=0;
  130.   END;
  131.   IF resnum=1 THEN
  132.     ok:=Save(_fileName)
  133.   ELSE
  134.     ok:=TRUE;
  135.   END;
  136.   IF ok AND ((resnum=0) OR (resnum=1)) THEN
  137.     QuitEd;
  138.   END;
  139. END M_Quit;
  140.  
  141. PROCEDURE InsertFile*;
  142.  
  143. VAR
  144.   retstring : STRING;
  145.  
  146. BEGIN
  147.   IF GetFile("","",retstring) THEN
  148.     IF LoadBuffer(retstring,"0") THEN
  149.       InsertBuffer("0")
  150.     END;
  151.   END;
  152. END InsertFile;
  153.  
  154. PROCEDURE SaveBlock*;
  155.  
  156. VAR
  157.   retstring : STRING;
  158.  
  159. BEGIN
  160.   IF CopyArea([%MARKA,%MARKA],[%MARKB,%MARKB],"0") THEN
  161.     IF GetFile("","",retstring){@SAVE} THEN
  162.       SaveBuffer(retstring,"0")
  163.     END;
  164.   END;
  165. END SaveBlock;
  166.  
  167. END Standard.
  168.